home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / -archivi / -recent2 / amicad_2.00.lha / AmiCAD / ARexx / SauverAuto.AmiCAD < prev    next >
Text File  |  1999-03-01  |  2KB  |  57 lines
  1. /* Sauvegarde automatique   Saint-James, 13 février 1994    Version 1.01 */
  2. /*                Saint-James,  4 juin    1994    Version 1.02 */
  3. /* Modification nom clip    Saint-James,  7 juillet 1994    Version 1.03 */
  4. /* Adaptation AmiTex:        Chez Corbin, 18 septembre 1997  Version 2.00 */
  5. /* Adaptation AmiCAD:        Chez Corbin, 22 Février 1998    Version 2.00 */
  6. /* $VER: 2.01 (6/2/99, ajout traitement du nom si Innomé) */
  7.  
  8. port = address()
  9. options results
  10. signal ON error     /* pour interrompre quand le programme quitte */
  11.  
  12. cr = '0a'x
  13.  
  14. sauver_auto=getclip(sauvegarde.port)
  15. if sauver_auto=1 then do        /* Version 1.02 */
  16.     a=setclip(sauvegarde.port,"")
  17.     'MESSAGE("Sauvegarde automatique"+CHR(10)+"interrompue.")'
  18.     exit
  19. end
  20.  
  21. if ~show('l', 'rexxsupport.library') then
  22. do
  23.     if ~addlib('rexxsupport.library',0,-30,0) then do
  24.     'MESSAGE("Installez rexxsupport.library"+CHR(10)+"dans votre répertoire libs: avant"+CHR(10)+"d''utiliser cette macro")'
  25.     exit    /* version 1.02 */
  26.     end
  27. end
  28.  
  29. a=setclip(sauvegarde.port,1)
  30. 'MESSAGE("Une sauvegarde automatique"+CHR(10)+"aura lieu toutes les deux"+CHR(10)+"minutes si le contenu de la"+CHR(10)+"fenêtre active a été modifié."+CHR(10)+"Sélectionnez à nouveau ce script"+CHR(10)+"pour arrêter son exécution.")'
  31.  
  32. do forever            /* Boucle infinie */
  33.     call delay(6000)            /* Délai de deux minutes */
  34.     if ~show(p, port) then goto error
  35.     sauver_auto = getclip(sauvegarde.port)
  36.     if sauver_auto=1 then do
  37.     'MODIF(-1)'             /* Test si texte modifié */
  38.     if result=1 THEN do
  39.         'FILEPART("")'
  40.         if result="Innomé" then do      /* Version 2.01 */
  41.         'REQUEST("Attention le fichier"+CHR(10)+"n''a pas été nommé, sa"+CHR(10)+"sauvegarde est donc impossible"+CHR(10)+"voulez-vous le nommer?")'
  42.         if result<1 then exit
  43.         'MENU("Renommer")'
  44.         'FILEPART("")'
  45.         if result="Innomé" then exit
  46.         end
  47.         'MENU("Sauver")'   /* Sauvegarde du texte */
  48.     end
  49.     end
  50.     else
  51.     exit
  52. end
  53.  
  54. error:
  55.     a=setclip(sauvegarde.port,"")
  56.     exit
  57.